IBM Aptiva Multimedia Exploration CD/Aptiva DEMO CD.iso/mmbasics/sysbook.sbk

Asymetrix ToolBook File | 1993-09-17 | 23KB | 494 lines

System Book
System
mes New Roman
developer
developer
developer
zarre
developer
buttonUp
buttonUp
-- ENTER BOOK SCRIPT
4gAnInch
    -- Links
DLL's
    linkDLL "tbkwin.dll"
        STRING ScreenFromPage(WORD,
,INT,
%PageFromScreen(
* VerticalDisplayRes()
E HorizontalDisplayRes()
OpenDlg(
user"
 MoveWindow(
    -- setup
"System Book"
k32767)
-- SYSTEM HANDLERS (FORWARDED)
4gVideoFullScreen
tbkMCI ("status theVideo mode","")
"paused"
--
RestoreVideoButton
--
PlayVideo
8"c:\toolbook\mmeld\main.
x"developer"
CloseVideo
SizeToPage
"0,0"
4gVideoFile
4gVideoFromFrame, gVideoToFrame
videoFile
startStop
ShowVideoButton
 here"
ttwo handlers belong
program
windowSized
across
s() + 5
high
) + 5
-3, -22,
windowMoved
s() + 5
) + 5
-3, -22,
-- SPECIAL AUTHORING
key, isShift, isCtrl
"The
:" &&
k& "What
title
Slocation,
8"c:\
.tbk"
"c:\plv","*.avs","Select a
 file...","
("Enter
stop frames (ex.
-- 1,900):" \
"Error:
You need
enter 2
ListObjects
    --
EditObject
    --
    --
    --
TextEditor
zyou want
"Background" \
theObjectEditor
    sourcePage
    sourceObject
sourceBook
theTextEditor
    tedit.
SizeForVideo
x1 + 4785
y1 + 3585
x1,y1,x2,y2
FullScreenVideo
-- LOW-LEVEL VIDEO
close
","")
PauseVideo
wait","")
OpenVideo
, gVideoStyle
kstoogeVideo","")
"child"
tbkMCIchk ("
" &&
 && "alias
" &&
&& "style
,1,1)
"popup"
" &&
 && "
,1,1)
"overlapped"
" &&
 && "
,1,1)
SizeWindow
4gVideoSize
theVideoPosition
, sysMagnification,
(640 *
) - 1
(480 *
) - 1
x1 + (9570 *
y1 + (7170 *
x1,y1,x2,y2
theVideoWindow
","",1,1)
" &&
"",1,1)
" &&
 && "
" &&
,"",1,1)
HideVideo
state
Audio
4gVideoAudio
audio
on","",1,1)
off","",1,1)
VideoFrame
","")
-- HIGH
        theOriginalPosition
0,0,21000,21000
","",1,1)
, 0, 0, 640, 480, 1)
-- TO CREATE FIELDS FROM TEXT FILES (TEXTFIELDS)
TextFields
theOriginalSnap
& ".txt")
theTextFile
1\" &
("Do
6(1)
k(2)
x"1"
theColor
GetText(
    -- loop through
each
fCount
PlaceField
    -- clean up
 theFile
" &&
        -- skip
)-1)
) - 2)
theFieldNumber, theTextLine, theTextColor
 * 4)
 * 3 / 8)
x1,y1
x2,y2
"Arial"
"240,25.125,100"
-- PRODUCE PAGE/OBJECT LIST
ListPages
"c:\pagelist.
theLastBackground
:" &&
"M d, y"
"Date:" &&
, thePageNumber
* Title: " &
' & \
: " &&
            &
* Frames:" &&
            &
theObjects
" (" &
& ")" &
-- THE THREE STOOGES
PlayStooges stoogeNumber
wave files
waveFile","")
currently playing
previously opened
appropriate
theVideoFile
"c:\plv\stooge1.
" &&
,1,1)
full screen
","",1,1)
,1,1,640,480,1)
,1,1)
erPage
SizeForVideo
buttonUp
author
CloseVideo
leavePage
PauseVideo
OpenVideo
leaveBook
SizeWindow
reader
PlayVideo
keyDown
HideVideo
ShowVideo
Audio
rightButtonUp
FullScreenVideo
RestoreVideoButton
ShowVideoButton
enterBook
TextFields
PlaceField
TextEditor
ListPages
ListObjects
enterPage
PlayStooges
VideoFrame
GetText
enterBook
tbkwin.dll
ScreenFromPage
PageFromScreen
VerticalDisplayRes
HorizontalDisplayRes
tbkdlg.dll
OpenDlg

MoveWindow
System Book
sizeToPage
seconds
gAnInch
author
CloseVideo
SizeToPage
reader
CloseVideo
enterPage
videoFile
startStop
ShowVideoButton
gVideoFromFrame
gVideoToFrame
gVideoFile
leavePage
CloseVideo
videoFile
show video here
leaveBook
CloseVideo
keyDown
The name of this page is:
What is the title of this page?
title
cancel
title
isCtrl
isShift
rightButtonUp
c:\toolbook\mmeld\main.tbk
developer
CloseVideo
show video here
c:\plv
*.avs
Select a video file...
OpenDlg
videoFile
Enter the start and stop frames (ex. start,stop -- 1,900):
startStop
cancel
Error:  You need to enter 2 items!
startStop
field
TextEditor
hotword
TextEditor
paintObject
What do you want to edit?
Background
Background
isCtrl
isShift
location
TextEditor
c:\toolbook\mmeld\tedit.tbk
sourcePage
sourceObject
sourceBook
theTextEditor
theObject
SizeForVideo
show video here
show video here
buttonUp
hotword
show video here
QRestoreVideoButton
FullScreenVideo
gVideoFullScreen
CloseVideo
close theVideo
tbkMCI
PauseVideo
pause theVideo wait
tbkMCI
OpenVideo
close stoogeVideo
tbkMCI
child
alias theVideo parent
style child wait
tbkMCIchk
popup
alias theVideo style popup wait
tbkMCIchk
overlapped
alias theVideo style overlapped wait
tbkMCIchk
gVideoFile
gVideoStyle
SizeWindow
show video here
ScreenFromPage
show video here
show video here
0bringToFront
status theVideo window handle
tbkMCIchk
MoveWindow
theVideoWindow
theVideoPosition
gVideoSize
PlayVideo
play theVideo from
tbkMCIchk
play theVideo from
tbkMCIchk
gVideoFromFrame
gVideoToFrame
HideVideo
window theVideo state hide wait
tbkMCI
ShowVideo
window theVideo state show wait
tbkMCI
Audio
set theVideo audio all on
tbkMCIchk
set theVideo audio all off
tbkMCIchk
gVideoAudio
VideoFrame
status theVideo position
tbkMCI
FullScreenVideo
PauseVideo
HideVideo
show video here
show video here
theOriginalPosition
show video here
status theVideo window handle
tbkMCIchk
MoveWindow
show video here
0bringToFront
Audio
PlayVideo
theVideoWindow
gVideoFromFrame
gVideoToFrame
gVideoFullScreen
gVideoAudio
RestoreVideoButton
PauseVideo
HideVideo
show video here
0bringToFront
show video here
show video here
theOriginalPosition
SizeWindow
Audio
PlayVideo
gVideoFromFrame
gVideoToFrame
gVideoFullScreen
gVideoAudio
ShowVideoButton
child
CloseVideo
OpenVideo
SizeWindow
show video here
PlayVideo
Audio
gVideoStyle
gVideoSize
gVideoAudio
gVideoFullScreen
TextFields
What is the text file name?
c:\toolbook\mmeld\txt\
Do you want blue (1) or yellow (2) text?
GetText
PlaceField
fCount
theText
theColor
theTextFile
theOriginalSnap
GetText
Error:
end of file
theText
theFile
PlaceField
Arial
240,25.125,100
60,50,100
gAnInch
theTextColor
theTextLine
theFieldNumber
ListPages
c:\pagelist.txt
********************
Book:
M d, y
Date:
********************

ListObjects
theLastBackground
theFile
ListObjects
     * Title:
title
videoFile
     * Video:
videoFile
     * Frames:
startStop

theObjects
thePageNumber
theFile
PlayStooges
close waveFile
tbkMCI
PauseVideo
close stoogeVideo
tbkMCI
c:\plv\stooge1.avs
c:\plv\stooge2.avs
c:\plv\stooge3.avs
c:\plv\stooge4.avs
alias stoogeVideo style popup wait
tbkMCIchk
status stoogeVideo window handle
tbkMCIchk
MoveWindow
play stoogeVideo from 1 wait
tbkMCIchk
close stoogeVideo wait
tbkMCI
theVideoWindow
theVideoFile
stoogeNumber